Creating images with R

with a little bit of magick

body{
  background-image: url("https://wallpapercave.com/dwp2x/wp2525596.jpg");
  width: 80%;
  margin-left: auto;
  margin-right: auto;
}

img{
  border: 1px solid #000;
  border-radius: 4px;
  padding: 5px;
  max-width: 100%:
  height: auto
}

#header{
  text-align: center;
}

h2{
  text-align: center;
}

p{
  text-align: center;
  font-size: 15px;
}

My meme

I like frogs and Kermit is a frog. Personally I find the Kermit character design funny so I wanted to incorporate it in a meme. I had a meme created before this but I didn’t like it so I created this one instead.

library(magick)

# First image
Image1 = image_read("Image1.jpg")%>%
  image_scale(500)

# Text next to first image
text_1 = image_blank(width = 500, 
                     height = 500,
                     color = "#000") %>%
  image_annotate(text = "Wakes up to \n a good morning",
                 color = "#fff",
                 size = 50,
                 font = "Impact",
                 gravity = "center")

# Second image
Image2 = image_read("Image2.jpg") %>%
  image_scale(500)

# Text next to second image
text_2 = image_blank(width = 500,
                     height = 500,
                     color = "#000") %>%
  image_annotate(text = "Stats 210 project is \n due today",
                  color = "#fff",
                  size = 50,
                  font = "Impact",
                  gravity = "center")

# Combing the image with the text
Image1_vector = c(Image1, text_1)
top_row = image_append(Image1_vector)

Image2_vector = c(Image2, text_2)
bottom_row = image_append(Image2_vector)

# Combines it all together
meme = c(top_row, bottom_row) %>%
  image_append(stack = TRUE) %>%
  image_scale(800)

# Produces a image file
image_write(meme, "my_meme.png")

My animated wooper GIF

I created a gif on my favourite pokemon, wooper. I wanted to spread the beauty of wooper.

library(magick)

# Create starting frame
frame0 = image_blank(color = "white", width = 1008, height = 500) %>% 
  image_annotate(text = "wooper \n my beloved <3", size = 100, gravity = "center")

# load images to seperate frames
frame1 = image_read("gif1.jpg")
frame2 = image_read("gif2.jpg")
frame3 = image_read("gif3.jpg")
frame4 = image_read("gif4.jpg")
frame5 = image_read("gif5.jpg")
frame6 = image_read("gif6.jpg")


# combine frames into a list
frames = c(frame0, frame1, frame2, frame3, frame4, frame5, frame6)

# function to animate all the frames in the list
animation = frames %>%
  image_animate(fps = 1)

# produces a gif file
image_write(animation, "my_animation.gif")